      FORMAT(1X,I10,1X,I10,1X,E15.7,I10,1X,I10,1X,I3/)
 9973 FORMAT(/,1X,'!!!!!! EXECUTION WILL NOW BE TERMINATED !!!!!!',//)
      END
